home *** CD-ROM | disk | FTP | other *** search
/ Virtual Sex Shoot / Virtual Sex Shoot.iso / mac / Virtual Sex Shoot / Virtual Sex Shoot.DXR / 00297.ls < prev    next >
Encoding:
Text File  |  1995-09-24  |  2.0 KB  |  51 lines
  1. global gPanoMovieID, gTestCallbackFactory
  2.  
  3. on exitFrame
  4.   if the machineType = 256 then
  5.     if objectp(gPanoMovieObj) then
  6.       if the hilite of cast "MouseOverHandler Check" then
  7.         gPanoMovieObj(mSetMouseOverCallback, gTestCallbackFactory, "TestMouseOverHandler")
  8.       else
  9.         gPanoMovieObj(mSetMouseOverCallback, gTestCallbackFactory, EMPTY)
  10.       end if
  11.       if the hilite of cast "RolloverHotSpotHandler Check" then
  12.         gPanoMovieObj(mSetRolloverCallback, gTestCallbackFactory, "TestRolloverHotSpotHandler")
  13.       else
  14.         gPanoMovieObj(mSetRolloverCallback, gTestCallbackFactory, EMPTY)
  15.       end if
  16.       if the hilite of cast "MouseDownHandler Check" then
  17.         gPanoMovieObj(mSetMouseDownCallback, gTestCallbackFactory, "TestMouseDownHandler")
  18.       else
  19.         gPanoMovieObj(mSetMouseDownCallback, gTestCallbackFactory, EMPTY)
  20.       end if
  21.       if the hilite of cast "PanZoomStartHandler Check" then
  22.         gPanoMovieObj(mSetPanZoomStartCallback, gTestCallbackFactory, "TestPanZoomStartHandler")
  23.       else
  24.         gPanoMovieObj(mSetPanZoomStartCallback, gTestCallbackFactory, EMPTY)
  25.       end if
  26.       if the hilite of cast "MouseStillDownHandler Check" then
  27.         gPanoMovieObj(mSetMouseStillDownCallback, gTestCallbackFactory, "TestMouseStillDownHandler")
  28.       else
  29.         gPanoMovieObj(mSetMouseStillDownCallback, gTestCallbackFactory, EMPTY)
  30.       end if
  31.       if the hilite of cast "NodeLeaveHandler Check" then
  32.         gPanoMovieObj(mSetNodeLeaveCallback, gTestCallbackFactory, "TestNodeLeaveHandler")
  33.       else
  34.         gPanoMovieObj(mSetNodeLeaveCallback, gTestCallbackFactory, EMPTY)
  35.       end if
  36.       exit
  37.     end if
  38.   else
  39.     if gPanoMovieID <> EMPTY then
  40.       SetupHandler("MouseOverHandler")
  41.       SetupHandler("RolloverHotSpotHandler")
  42.       SetupHandler("MouseDownHandler")
  43.       SetupHandler("PanZoomStartHandler")
  44.       SetupHandler("MouseStillDownHandler")
  45.       SetupHandler("NodeLeaveHandler")
  46.       exit
  47.     end if
  48.   end if
  49.   beep()
  50. end
  51.